home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / oberonindex.module < prev    next >
Text File  |  1996-10-06  |  213b  |  19 lines
  1. MODULE OberonIndex;
  2.  
  3. VAR
  4.   pattern : STRING;
  5.  
  6. ITEMBAR;
  7.  
  8. ITEM $item1_1 ""
  9.   IF GetString($text1,"",pattern) THEN
  10.     ShowIndex(pattern)
  11.   END
  12. END;
  13.  
  14. ITEM $item1_2 "J"
  15.   ShowIndex("PROCEDURE")
  16. END;
  17.  
  18. END OberonIndex.
  19.